home *** CD-ROM | disk | FTP | other *** search
- ; $VER: PaybackDemo Update Version 1.2 (23 February 2001)
- ; © James Daniels/Apex Designs
-
- (set #installdrawer (cat "Per favore scegli il cassetto in cui è stata installata la demo giocabile di Payback."))
-
- (set #installdrawer-help (cat "Scegli la directory che contiene la versione demo di Payback che vuoi aggiornare."))
-
- (set #notfound (cat "\nLa demo giocabile di Payback non risulta installata correttamente.\nPer favore scegli un altro cassetto."))
-
- (set #install-all (cat "Aggiornamento in corso..."))
-
- (set #finished-message (cat "\nLa tua copia della demo giocabile di Payback è stata aggiornata con successo."))
-
- (set destdir "RAM:")
-
- (while (= (exists (tackon destdir "PaybackDemo.exe")) 0)
- (
- (set destdir
- (askdir
- (prompt #installdrawer)
- (help #installdrawer-help)
- (default "RAM:")
- (disk)
- )
- )
-
- (if (= (exists (tackon destdir "PaybackDemo.exe")) 0)
- (message #notfound)
- )
- )
- )
-
- (complete 10)
-
- (copyfiles
- (prompt #install-all)
- (source "Files/")
- (pattern "#?")
- (dest destdir)
- )
-
- (complete 100)
-
- (message #finished-message)
-
- (set @default-dest destdir)
-